home *** CD-ROM | disk | FTP | other *** search
- 3000 GOSUB 21200: REM DEFINE ADDRESSES AND VARIABLES
- 3100 REM ADD YOUR PROGRAM HERE
- 3200 :
- 19900 END
- 21200 REM ************ SKELETON *************
- 21205 :
- 21210 REM ASSEMBLY ROUTINE JUMP ADDRESS NAMES
- 21215 :
- 21216 REM REMEMBER THAT ONLY THE FIRST TWO CHARACTERS OF NAMES ARE SIGNIFICANT
- 21217 :
- 21220 TABRAW=49328:DEBOUNCE=49331:FILTER=49334:PERFECT=49337
- 21225 SMOOTH=49340:PADLOCK=49343:SCALE=49346
- 21230 :
- 21235 TEXTCR=49349:SPRITE=49352
- 21240 :
- 21245 PLTDOT=49355:SETSCL=49358:TURNUN=49361:KLRCOL=49364:TRNUFF=49367
- 21250 :
- 21255 LINE=49382:BOX=49385:RADIUS=49388:CIRCLE=49391
- 21260 :
- 21262 REM THE FOLLOWING DEAL WITH LOADING AND SAVING KOALAPAINTER PICTURES
- 21265 KOAPIC=49394:CPYIT=49397:SVIT=49440:REM THEY ARE VERY HANDY. SEE MANUAL
- 21270 :
- 21271 :
- 21272 :
- 21275 REM VARIABLE NAMES
- 21280 :
- 21284 REM RAW TABLET DATA
- 21285 RX=49152:RY=49154
- 21286 :
- 21289 REM DEBOUNCE BUTTONS
- 21290 B1=49156:B2=49157:LDBOUNCE=49159:RDBOUNCE=49160:LPRESS=49161:RPRESS=49162
- 21291 :
- 21294 REM LOCK
- 21295 LX=49163:LY=49164:TX=49165:TY=49166:PU=49167
- 21296 :
- 21299 REM FILTER
- 21300 FX=49168:FY=49169:UX=49172:UY=49173:ERRUR=49174:M1=49175:M2=49176
- 21301 :
- 21304 REM SCALE
- 21305 XS=49177:YS=49179:XF=49181:YF=49183:XNW=49185:YNW=49189
- 21310 H1=49178:H2=49180:H3=49182:H4=49184
- 21312 XH=49186:S1=49187:S2=49188:YH=49190
- 21313 :
- 21315 BANKA=49191:SA=49192:CA=49193:SSTART=49194:CH=49195: REM COMMON POINTERS
- 21316 :
- 21319 REM SMOOTH
- 21320 SX=49196:SY=49197:LEVEL=49198:LOCKST=49199
- 21330 :
- 21339 REM SPRITES
- 21340 SFLAG=49200:REM SPRITE FLAG
- 21341 SNABLE=53269:SKOLR=53287:XLOSP=53248:XISP=53264:YLOSP=53249
- 21342 REM THE ABOVE 5 ARE STANDARD SPRITE CONTROL LOCATIONS IN VIC CHIP (FIXED)
- 21343 :
- 21345 P1=49201:P2=49202:P3=49203:P4=49204: REM SPRITE BANK POINTERS
- 21346 :
- 21349 REM DOT
- 21350 MCM=49205:COLR=49206:XR=49208
- 21351 :
- 21354 REM USED BY LINE, BOX AND CIRCLE
- 21355 X1=49209:X2=49210:Y1=49211:Y2=49212:REDIUS=49213
- 21360 RETURN
-